home *** CD-ROM | disk | FTP | other *** search
/ Best of www.BestZips.com (Collector's Edition) / Best of WWW.BESTZIPS.COM Collector's Edition (JCSM Shareware) (JCS Marketing).ISO / grapprog / splt300w.zip / THPGL2.ZIP / T191.BAS < prev    next >
BASIC Source File  |  1995-05-01  |  687b  |  22 lines
  1. 10 OPEN "T191.PLT" FOR OUTPUT AS 1
  2. 20 PRINT #1,"INPS7000,5000SP1"
  3. 30 PRINT #1,"PA3500,2500"
  4. 40 PRINT #1,"DI0,1LB___1990"+CHR$(3)
  5. 50 PRINT #1,"DI1,1LB___1991"+CHR$(3)
  6. 60 PRINT #1,"DI1,0LB___1992"+CHR$(3)
  7. 100 PI=3.14593
  8. 110 A%=COS(315*(PI/180))
  9. 120 B%=sin(315*(PI/180))
  10. 130 PRINT #1,"DI";A%;",";B%;"LB___1993"+CHR$(3)
  11. 140 C%=COS(270*(PI/180))
  12. 150 D%=sin(270*(PI/180))
  13. 160 PRINT #1,"DI";C%;",";D%;"LB___1994"+CHR$(13)+CHR$(3)
  14. 170 E%=COS(225*(PI/180))
  15. 180 F%=sin(225*(PI/180))
  16. 190 PRINT #1,"DI";E%;",";F%;"LB___1995"+CHR$(13)+CHR$(3)
  17. 200 G%=COS(-180*(PI/180))
  18. 210 H%=sin(-180*(PI/180))
  19. 220 PRINT #1,"DI";G%;",";H%;"LB___1996"+CHR$(13)+CHR$(3)
  20. 230 PRINT #1,"PG;"
  21. 240 END
  22.